home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Contributed Scores / Claudio Martini / Canon with Timesheet Pairing < prev    next >
Lisp/Scheme  |  1998-10-26  |  3KB  |  65 lines
  1. ; authors: stalker@mix.it and psto@xs4all.nl
  2.  
  3. (def-orchestra 'orchestra
  4.    all-instruments (voice1 voice2 voice3)
  5.    voice1 (theme1 contrapunctus1)
  6.    voice2 (theme2 contrapunctus2)
  7.    voice3 (theme3 contrapunctus3)
  8. )
  9.  
  10. (setq theme '(a c e f -b e (-1 e) d (-1 d) c b (-1 b) a -b -d a d c b a c))
  11. (setq theme-rhythm '(2/4 2/4 2/4 2/4 2/4 -1/4 2/4 2/4 2/4 2/4 2/4 1/4 1/4 1/4 1/4 1/4 
  12.                      1/4 1/4 2/4 2/4 2/4 2/4))
  13.  
  14. (setq contrapunctus-theme '(e d e h e c b c d e (1 f) g h c d e f b c d e d c b c d e f (-1 g) 
  15.                             f e d e f (-1 g) h (-1 i) (-1 g) f e (1 f) g h i j h g (1 f) g h i 
  16.                             j k i e i h i j k j i h g h e c a))
  17.  
  18. (setq contrapunctus-rhythm '(1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8  1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8 
  19.                              1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8  1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8  
  20.                              1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8  1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8  
  21.                              1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8  1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8
  22.                              1/4 1/4 1/4 1/4))
  23.  
  24. (def-section-timesheet sect-a
  25.    ;
  26.    ; timesheet
  27.    ;
  28.    with 1/1       ;1       9      17       25      33   bars
  29.    ;               +---!---+---!---+---!---+---!---+
  30.    tonality       "." (activate-tonality (harmonic-minor c 5))
  31.    theme1         "---------         ---------                  "
  32.    contrapunctus1 "         ---------         ---------         "
  33.    theme2         "         ---------                  ---------"
  34.    contrapunctus2 "                  ---------                  "
  35.    theme3         "                           ---------         "
  36.    contrapunctus3 "                                    ---------"
  37.    ;
  38.    beat 1/16     ; !---!---!---!---!
  39.    theme1          theme-rhythm theme with '(85 75 80 70)
  40.    contrapunctus1  contrapunctus-rhythm contrapunctus-theme with '(85 75 80 70)
  41.    theme2          (symbol-retrograde theme-rhythm) 
  42.                    (symbol-retrograde theme) with '(85 75 80 70)
  43.    contrapunctus2  (symbol-retrograde contrapunctus-rhythm)
  44.                    (symbol-retrograde contrapunctus-theme) with '(85 75 80 70)
  45.    theme3          theme-rhythm 
  46.                    (symbol-inversion 'a theme) with '(85 75 80 70)
  47.    contrapunctus3  contrapunctus-rhythm
  48.                    (symbol-inversion 'a contrapunctus-theme) with '(85 75 80 70)
  49. )
  50.  
  51. (def-section sect-a
  52.   voice1
  53.     channel 1
  54.   voice2
  55.     channel 2
  56.   voice3
  57.     channel 3
  58. )
  59.  
  60. (def-tempo 150)
  61.  
  62. (play-file-p nil
  63.    all-instruments '(sect-a)
  64. )
  65.